pkg/admtlm/admtlm_map.F

b35bd3101a Jean*0001 #include "ADMTLM_OPTIONS.h"
ee5ca1ad15 Patr*0002
                0003       subroutine admtlm_map( myThid )
                0004 C     /==========================================================\
                0005 C     | subroutine admtlm_map                                    |
                0006 C     | o This routine assigns final T,S to cost function        |
                0007 C     \==========================================================/
                0008        implicit none
                0009
                0010 C     == Global variables ===
                0011 #include "SIZE.h"
                0012 #include "EEPARAMS.h"
                0013 #include "PARAMS.h"
0b5e42db1b Patr*0014 #ifdef ALLOW_ADMTLM
ee5ca1ad15 Patr*0015 # include "adcost.h"
                0016 # include "g_cost.h"
                0017 #endif
                0018
                0019 C     ======== Routine arguments ======================
                0020 C     myThid - Thread number for this instance of the routine.
                0021       integer myThid
                0022
0b5e42db1b Patr*0023 #ifdef ALLOW_ADMTLM
ee5ca1ad15 Patr*0024 C     ========= Local variables =========================
                0025       integer i, j, k
                0026       integer bi, bj
                0027
                0028       DO bj=myByLo(myThid),myByHi(myThid)
                0029        DO bi=myBxLo(myThid),myBxHi(myThid)
e4939baa16 Patr*0030         DO j=1,sNy
                0031          DO i=1,sNx
                0032           DO k=1,4*Nr
305d315bb8 Jean*0033             adobjf_state_final(i,j,bi,bj,k) =
e4939baa16 Patr*0034      &       g_objf_state_final(i,j,bi,bj,k)
ee5ca1ad15 Patr*0035           END DO
305d315bb8 Jean*0036            adobjf_state_final(i,j,bi,bj,4*Nr+1) =
e4939baa16 Patr*0037      &      g_objf_state_final(i,j,bi,bj,4*Nr+1)
ee5ca1ad15 Patr*0038          END DO
e4939baa16 Patr*0039         END DO
ee5ca1ad15 Patr*0040        END DO
                0041       END DO
                0042
                0043 #endif
305d315bb8 Jean*0044
ee5ca1ad15 Patr*0045       end