/[MITgcm]/MITgcm/pkg/ptracers/ptracers_mnc_init.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_mnc_init.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by edhill, Sat Sep 4 03:08:03 2004 UTC revision 1.3 by edhill, Thu Sep 23 03:28:42 2004 UTC
# Line 20  C     !USES: Line 20  C     !USES:
20  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
21  #include "PTRACERS.h"  #include "PTRACERS.h"
22  #include "PARAMS.h"  #include "PARAMS.h"
23    #ifdef ALLOW_MNC
24    #include "MNC_PARAMS.h"
25    #endif
26    
27  C     !INPUT PARAMETERS:  C     !INPUT PARAMETERS:
28        INTEGER myThid        INTEGER myThid
# Line 36  C     !LOCAL VARIABLES: Line 39  C     !LOCAL VARIABLES:
39  C     Functions  C     Functions
40        integer ILNBLNK        integer ILNBLNK
41    
42        DO ii = 1,PTRACERS_numInUse        IF (useMNC) THEN
43            DO ii = 1,PTRACERS_numInUse
44    
45          DO jj = 1,80            DO jj = 1,80
46            name(jj:jj) = ' '              name(jj:jj) = ' '
47              ENDDO
48    
49    C         Create the tracer
50              ilnb = ILNBLNK(PTRACERS_names(ii))
51              IF (ilnb .LT. 1) THEN
52                write(msgbuf,'(2a,i3,2a)') 'PTRACERS_MNC_INIT ERROR: ',
53         &           'PTRACERS_names(',ii,') is blank--please name it in',
54         &           ' ''data.ptracers'''
55                CALL print_error(msgbuf, mythid)
56                stop 'ABNORMAL END: S/R PTRACERS_MNC_INIT'
57              ENDIF
58              CALL MNC_CW_ADD_VNAME(
59         &         PTRACERS_names(ii),'Cen_xy_Hn__C__t',4,5,myThid)
60              WRITE(name,'(a,a)') 'surf_',PTRACERS_names(ii)(1:ilnb)
61              CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__-__t',3,4,myThid)
62    
63    C         Add the long_name attribute if its defined
64              ilnb = ILNBLNK(PTRACERS_long_names(ii))
65              IF (ilnb .GT. 0) THEN
66                CALL MNC_CW_ADD_VATTR_TEXT(PTRACERS_names(ii),
67         &           'long_name',PTRACERS_long_names(ii),myThid)
68              ENDIF
69    
70    C         Add the units attribute if its defined
71              ilnb = ILNBLNK(PTRACERS_units(ii))
72              IF (ilnb .GT. 0) THEN
73                CALL MNC_CW_ADD_VATTR_TEXT(PTRACERS_names(ii),'units',
74         &           PTRACERS_units(ii),myThid)
75              ENDIF
76              
77          ENDDO          ENDDO
78            
79  C       Create the tracer        ENDIF
         ilnb = ILNBLNK(PTRACERS_names(ii))  
         IF (ilnb .LT. 1) THEN  
           write(msgbuf,'(2a,i3,2a)') 'PTRACERS_MNC_INIT ERROR: ',  
      &         'PTRACERS_names(',ii,') is blank--please name it in',  
      &         ' ''data.ptracers'''  
           CALL print_error(msgbuf, mythid)  
           stop 'ABNORMAL END: S/R PTRACERS_MNC_INIT'  
         ENDIF  
         CALL MNC_CW_ADD_VNAME(  
      &       PTRACERS_names(ii),'Cen_xy_Hn__C__t',4,5,myThid)  
         WRITE(name,'(a,a)') 'surf_',PTRACERS_names(ii)(1:ilnb)  
         CALL MNC_CW_ADD_VNAME(name,'Cen_xy_Hn__-__t',3,4,myThid)  
   
 C       Add the long_name attribute if its defined  
         ilnb = ILNBLNK(PTRACERS_long_names(ii))  
         IF (ilnb .GT. 0) THEN  
           CALL MNC_CW_ADD_VATTR_TEXT(PTRACERS_names(ii),1,'long_name',  
      &         PTRACERS_long_names(ii),myThid)  
         ENDIF  
   
 C       Add the units attribute if its defined  
         ilnb = ILNBLNK(PTRACERS_units(ii))  
         IF (ilnb .GT. 0) THEN  
           CALL MNC_CW_ADD_VATTR_TEXT(PTRACERS_names(ii),1,'units',  
      &         PTRACERS_units(ii),myThid)  
         ENDIF  
   
       ENDDO  
   
80  #endif /*  ALLOW_MNC  */  #endif /*  ALLOW_MNC  */
81  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
82    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22